/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / simplex.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 3c 00 00 ff d2 00 00 | f0 13 20 20 20 20 20 20 |.<......|..      |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 66 72 6f 6d 20 |        |   from |
|000000d0| 53 45 44 47 45 57 49 43 | 4b 20 2d 20 41 4c 47 4f |SEDGEWIC|K - ALGO|
|000000e0| 52 49 54 48 49 4d 53 20 | 43 48 2e 33 38 00 00 0c |RITHIMS |CH.38...|
|000000f0| 00 01 ff c2 00 00 f0 16 | 20 62 00 00 00 52 00 02 |........| b...R..|
|00000100| ff f2 00 00 f0 13 20 5f | 4d 20 69 73 20 6d 61 78 |...... _|M is max|
|00000110| 69 6d 75 6d 20 6e 6f 20 | 6f 66 20 65 71 75 61 74 |imum no |of equat|
|00000120| 69 6f 6e 73 20 5f 4e 20 | 69 73 20 6e 6f 20 76 61 |ions _N |is no va|
|00000130| 72 73 20 2b 20 73 6c 61 | 63 6b 20 76 61 72 73 20 |rs + sla|ck vars |
|00000140| 5f 50 20 3d 4e 2b 2b 20 | 5f 50 32 3d 50 2a 50 00 |_P =N++ |_P2=P*P.|
|00000150| 00 4c 00 03 ff ac 00 00 | f0 13 20 20 20 20 20 30 |.L......|..     0|
|00000160| 2c 30 2c 30 20 69 73 20 | 61 20 66 65 61 73 69 62 |,0,0 is |a feasib|
|00000170| 6c 65 20 73 6f 6c 75 74 | 69 6f 6e 20 69 66 20 6d |le solut|ion if m|
|00000180| 61 78 20 b7 61 69 2a 78 | 69 20 3d 63 69 20 77 69 |ax .ai*x|i =ci wi|
|00000190| 74 68 20 61 69 3e 30 2c | 63 69 3e 30 00 00 00 6a |th ai>0,|ci>0...j|
|000001a0| 00 04 ff b2 00 00 f0 13 | 20 20 20 20 6d 61 78 69 |........|    maxi|
|000001b0| 6d 69 7a 65 20 20 63 6f | 6e 73 74 72 61 69 6e 74 |mize  co|nstraint|
|000001c0| 20 20 20 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |   2    |        |
|000001d0| 20 20 20 33 20 20 20 20 | 20 20 20 20 20 20 20 20 |   3    |        |
|000001e0| 20 20 20 34 20 20 20 20 | 20 20 20 20 20 20 20 20 |   4    |        |
|000001f0| 20 20 35 20 20 20 20 20 | 20 20 6d 75 73 74 20 65 |  5     |  must e|
|00000200| 6e 64 20 77 69 74 68 20 | 24 00 00 54 00 05 ff 94 |nd with |$..T....|
|00000210| 00 00 f0 08 20 22 2d 58 | 2d 59 2d 5a 3d 30 22 2c |.... "-X|-Y-Z=0",|
|00000220| 22 2d 58 2b 59 3c 35 22 | 2c 22 58 2b 34 59 3c 34 |"-X+Y<5"|,"X+4Y<4|
|00000230| 35 22 2c 22 32 58 2b 59 | 3c 32 37 22 2c 22 33 58 |5","2X+Y|<27","3X|
|00000240| 2d 34 59 3c 32 34 22 2c | 22 5a 3c 34 22 2c 22 24 |-4Y<24",|"Z<4","$|
|00000250| 22 27 2a 2a 50 41 47 45 | 20 35 30 33 2a 2a 2a 00 |"'**PAGE| 503***.|
|00000260| 00 4e 00 06 ff aa 00 00 | f0 08 20 22 32 58 2b 59 |.N......|.. "2X+Y|
|00000270| 2d 5a 2b 33 55 2d 56 3d | 30 22 2c 22 33 58 2b 32 |-Z+3U-V=|0","3X+2|
|00000280| 5a 2d 56 3d 31 32 22 2c | 22 58 2d 59 2b 5a 3d 35 |Z-V=12",|"X-Y+Z=5|
|00000290| 22 2c 22 58 2b 5a 2b 55 | 3d 36 22 2c 22 24 22 27 |","X+Z+U|=6","$"'|
|000002a0| 20 6f 74 68 65 72 20 65 | 78 61 6d 70 6c 65 73 00 | other e|xamples.|
|000002b0| 00 22 00 07 ff b0 00 00 | f0 08 20 22 2d 58 3d 30 |."......|.. "-X=0|
|000002c0| 22 2c 22 2d 78 3e 33 22 | 2c 22 2d 78 3c 35 22 2c |","-x>3"|,"-x<5",|
|000002d0| 22 24 22 00 00 3c 00 08 | ff dc 00 00 f0 08 20 22 |"$"..<..|...... "|
|000002e0| 2d 78 2d 79 2d 7a 3d 30 | 22 2c 22 78 2d 79 2b 7a |-x-y-z=0|","x-y+z|
|000002f0| 3d 33 22 2c 22 33 78 2d | 34 79 2b 35 7a 3d 30 22 |=3","3x-|4y+5z=0"|
|00000300| 2c 22 32 78 2b 34 79 2b | 37 7a 3d 38 22 2c 22 24 |,"2x+4y+|7z=8","$|
|00000310| 22 00 00 08 00 09 ff c2 | 00 00 00 00 00 46 00 00 |".......|.....F..|
|00000320| ff f6 00 00 f2 08 20 23 | 31 2c 20 22 53 49 4d 50 |...... #|1, "SIMP|
|00000330| 4c 45 58 20 4d 45 54 48 | 4f 44 20 20 28 70 72 65 |LEX METH|OD  (pre|
|00000340| 73 73 20 6d 6f 75 73 65 | 20 74 6f 20 65 78 69 74 |ss mouse| to exit|
|00000350| 29 22 2c 28 34 2c 33 38 | 29 2d 28 36 35 30 2c 35 |)",(4,38|)-(650,5|
|00000360| 30 30 29 00 00 3a 00 0b | ff b8 00 00 f0 64 20 30 |00)..:..|.....d 0|
|00000370| 2c 20 5f 63 61 73 65 49 | 6e 73 65 6e 73 69 74 69 |, _caseI|nsensiti|
|00000380| 76 65 20 5f 73 74 72 52 | 65 73 6f 75 72 63 65 20 |ve _strR|esource |
|00000390| 5f 6d 61 63 73 62 75 67 | 4c 61 62 65 6c 73 00 00 |_macsbug|Labels..|
|000003a0| 00 3a 00 0c ff c4 00 00 | 5f 50 20 3d 20 32 30 20 |.:......|_P = 20 |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 00 00 00 2e 00 0d |        |  ......|
|000003e0| ff c4 00 00 5f 50 32 20 | 3d 20 34 30 30 f0 5a 20 |...._P2 |= 400.Z |
|000003f0| 20 6d 61 78 69 6d 75 6d | 20 6f 72 64 65 72 20 69 | maximum| order i|
|00000400| 73 20 32 30 20 20 62 79 | 20 32 30 00 00 0e 00 0e |s 20  by| 20.....|
|00000410| ff d0 00 00 5f 4e 20 3d | 20 32 30 00 00 0e 00 0f |...._N =| 20.....|
|00000420| ff f0 00 00 5f 4d 20 3d | 20 32 30 00 00 3e 00 10 |...._M =| 20..>..|
|00000430| ff f0 00 00 5f 70 72 65 | 63 69 73 69 6f 6e 20 3d |...._pre|cision =|
|00000440| 20 34 f0 5a 20 6e 75 6d | 62 65 72 20 6f 66 20 64 | 4.Z num|ber of d|
|00000450| 65 63 69 6d 61 6c 20 70 | 6c 61 63 65 73 20 6f 66 |ecimal p|laces of|
|00000460| 20 70 72 65 63 69 73 69 | 6f 6e 00 00 00 54 00 11 | precisi|on...T..|
|00000470| ff c0 00 00 f0 1b 20 41 | 2d 48 2c 5a 3a f0 11 20 |...... A|-H,Z:.. |
|00000480| 22 70 61 72 73 65 22 3a | f0 0a 20 41 28 5f 4e 2c |"parse":|.. A(_N,|
|00000490| 5f 4d 29 2c 46 28 5f 4e | 29 2c 4b 28 5f 4d 29 2c |_M),F(_N|),K(_M),|
|000004a0| 6c 28 5f 4e 29 2c 62 28 | 5f 4d 29 2c 77 24 28 5f |l(_N),b(|_M),w$(_|
|000004b0| 50 29 2c 76 24 28 5f 50 | 29 2c 63 28 5f 50 32 29 |P),v$(_P|),c(_P2)|
|000004c0| 00 00 00 48 00 12 ff aa | 00 00 f0 09 20 22 69 73 |...H....|.... "is|
|000004d0| 20 30 2c 30 2c 30 2e 2e | 2e 20 61 20 66 65 61 73 | 0,0,0..|. a feas|
|000004e0| 69 62 6c 65 20 73 6f 6c | 75 74 69 6f 6e 3f 20 28 |ible sol|ution? (|
|000004f0| 59 2f 4e 29 22 20 3b 41 | 24 3a 5a 3d 31 45 2b 33 |Y/N)" ;A|$:Z=1E+3|
|00000500| 38 3a 5a 5a 3d 2e 30 30 | 30 30 31 00 00 5a 00 13 |8:ZZ=.00|001..Z..|
|00000510| ff b6 00 04 6c 3d 30 3a | f0 01 20 6a 3d 30 20 f6 |....l=0:|.. j=0 .|
|00000520| 04 20 20 4d 3a 6c 3d 6c | 2b 31 3a f0 01 20 69 3d |.  M:l=l|+1:.. i=|
|00000530| 30 20 f6 04 20 4e 3a f0 | 0f 20 63 28 6c 29 3c 3e |0 .. N:.|. c(l)<>|
|00000540| 58 20 f6 05 20 41 28 69 | 2c 6a 29 3d 63 28 6c 29 |X .. A(i|,j)=c(l)|
|00000550| 3a 6c 3d 6c 2b 31 3a 46 | 28 69 29 3d 46 28 69 29 |:l=l+1:F|(i)=F(i)|
|00000560| 2b 41 28 69 2c 6a 29 00 | 00 56 00 14 ff a4 00 02 |+A(i,j).|.V......|
|00000570| f0 07 20 69 2c 6a 3a f0 | 01 20 69 3d 30 20 f6 04 |.. i,j:.|. i=0 ..|
|00000580| 20 4e 3a 6c 28 69 29 3d | 69 3a f0 0f 20 f4 35 28 | N:l(i)=|i:.. .5(|
|00000590| 41 24 29 3d 22 59 22 20 | 20 20 f6 05 20 63 3d 46 |A$)="Y" |  .. c=F|
|000005a0| 28 69 29 3a 46 28 69 29 | 3d 41 28 69 2c 30 29 3a |(i):F(i)|=A(i,0):|
|000005b0| 41 28 69 2c 30 29 3d 41 | 28 69 2c 30 29 2d 63 00 |A(i,0)=A|(i,0)-c.|
|000005c0| 00 0c 00 15 ff a8 00 00 | f0 07 20 69 00 00 00 56 |........|.. i...V|
|000005d0| 00 16 ff f2 00 04 22 68 | 22 f0 11 20 22 50 22 3a |......"h|".. "P":|
|000005e0| f0 01 20 68 3d 31 20 f6 | 04 20 4e 3a 44 3d 30 3a |.. h=1 .|. N:D=0:|
|000005f0| 59 3d 4e 2d 68 2b 31 3a | f0 01 20 55 3d 31 20 f6 |Y=N-h+1:|.. U=1 .|
|00000600| 04 20 4e 3a 69 3d 6c 28 | 55 29 3a 45 3d 41 28 69 |. N:i=l(|U):E=A(i|
|00000610| 2c 30 29 3a f0 0f 20 45 | 3c 44 20 f6 05 20 53 3d |,0):.. E|<D .. S=|
|00000620| 69 3a 44 3d 45 00 00 58 | 00 17 ff a8 02 02 f0 07 |i:D=E..X|........|
|00000630| 20 55 3a f0 0f 20 44 3e | 2d 5a 5a 20 f6 05 20 f0 | U:.. D>|-ZZ .. .|
|00000640| 0f 20 f4 35 28 41 24 29 | 3d 22 59 22 20 f6 07 20 |. .5(A$)|="Y" .. |
|00000650| f4 14 28 41 28 30 2c 30 | 29 29 3c 5a 5a 20 f6 05 |..(A(0,0|))<ZZ ..|
|00000660| 20 f0 0d 20 22 71 22 20 | 3a f0 15 20 f0 31 20 22 | .. "q" |:.. .1 "|
|00000670| 44 4f 4e 45 22 3a f0 0d | 20 22 77 61 69 74 22 00 |DONE":..| "wait".|
|00000680| 00 4e 00 18 ff a6 02 04 | 45 3d 5a 3a f0 01 20 6a |.N......|E=Z:.. j|
|00000690| 3d 30 20 f6 04 20 4d 3a | 63 3d 41 28 53 2c 6a 29 |=0 .. M:|c=A(S,j)|
|000006a0| 3a 62 28 6a 29 3d 63 3a | f0 0f 20 63 3e 30 20 f6 |:b(j)=c:|.. c>0 .|
|000006b0| 05 20 46 3d 41 28 30 2c | 6a 29 2f 63 3a f0 0f 20 |. F=A(0,|j)/c:.. |
|000006c0| 46 3c 45 20 f6 05 20 54 | 3d 6a 3a 45 3d 46 00 00 |F<E .. T|=j:E=F..|
|000006d0| 00 66 00 00 ff b0 02 02 | f0 07 20 6a 3a f0 0f 20 |.f......|.. j:.. |
|000006e0| 45 3c 3e 5a 20 f6 05 20 | 71 3d 6c 28 53 29 3a 6c |E<>Z .. |q=l(S):l|
|000006f0| 28 53 29 3d 6c 28 59 29 | 3a 6c 28 59 29 3d 71 3a |(S)=l(Y)|:l(Y)=q:|
|00000700| 44 3d 41 28 53 2c 54 29 | 3a 4b 28 54 29 3d 53 3a |D=A(S,T)|:K(T)=S:|
|00000710| f0 31 20 22 70 69 76 6f | 74 22 3b 54 3b 53 3b 44 |.1 "pivo|t";T;S;D|
|00000720| 20 20 3a f0 15 20 f0 31 | 22 62 61 64 22 3a f0 0d |  :.. .1|"bad":..|
|00000730| 20 22 77 61 69 74 22 00 | 00 4c 00 1a ff 98 00 04 | "wait".|.L......|
|00000740| f0 01 20 20 55 3d 30 20 | f6 04 20 4e 3a 69 3d 6c |..  U=0 |.. N:i=l|
|00000750| 28 55 29 3a 45 3d 41 28 | 69 2c 54 29 2f 44 3a f0 |(U):E=A(|i,T)/D:.|
|00000760| 01 20 6a 3d 30 20 f6 04 | 20 4d 3a 41 28 69 2c 6a |. j=0 ..| M:A(i,j|
|00000770| 29 3d 41 28 69 2c 6a 29 | 2d 62 28 6a 29 2a 45 3a |)=A(i,j)|-b(j)*E:|
|00000780| f0 07 20 6a 00 00 00 20 | 00 1b ff b2 00 00 41 28 |.. j... |......A(|
|00000790| 69 2c 54 29 3d 45 3a f0 | 07 20 55 3a f0 11 20 22 |i,T)=E:.|. U:.. "|
|000007a0| 50 22 3a f0 07 20 68 00 | 00 22 00 1c ff de fe 00 |P":.. h.|."......|
|000007b0| 22 77 61 69 74 22 f0 37 | 20 f2 0b 28 5f 64 6f 77 |"wait".7| ..(_dow|
|000007c0| 6e 29 3d 30 3a f0 38 3a | f0 1f 00 00 00 44 00 1d |n)=0:.8:|.....D..|
|000007d0| ff dc 00 00 f0 13 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007f0| 20 20 64 65 74 65 72 6d | 69 6e 65 64 20 20 30 2c |  determ|ined  0,|
|00000800| 30 2c 30 20 20 69 73 20 | 66 65 61 73 69 62 6c 65 |0,0  is |feasible|
|00000810| 00 00 00 6a 00 1e ff ba | fc 00 22 71 22 f0 01 20 |...j....|.."q".. |
|00000820| 69 3d 30 20 f6 04 20 4e | 3a 41 28 69 2c 30 29 3d |i=0 .. N|:A(i,0)=|
|00000830| 46 28 69 29 3a f0 01 20 | 6a 3d 31 20 f6 04 20 4d |F(i):.. |j=1 .. M|
|00000840| 3a 41 28 69 2c 30 29 3d | 41 28 69 2c 30 29 2d 41 |:A(i,0)=|A(i,0)-A|
|00000850| 28 69 2c 6a 29 2a 46 28 | 4b 28 6a 29 29 3a f0 07 |(i,j)*F(|K(j)):..|
|00000860| 20 6a 2c 69 3a f0 31 20 | 22 66 65 61 73 22 3a 41 | j,i:.1 |"feas":A|
|00000870| 24 3d 22 4e 22 3a f0 0d | 20 22 68 22 00 00 00 3e |$="N":..| "h"...>|
|00000880| 00 1f ff 94 00 00 f0 13 | 20 20 20 20 20 20 20 20 |........|        |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008a0| 20 20 20 20 70 72 69 6e | 74 73 20 74 68 65 20 6c |    prin|ts the l|
|000008b0| 61 74 65 73 74 20 70 69 | 76 6f 74 20 00 00 00 62 |atest pi|vot ...b|
|000008c0| 00 20 ff c0 00 04 22 50 | 22 f0 01 20 6a 3d 30 20 |. ...."P|".. j=0 |
|000008d0| f6 04 20 4d 3a f0 31 20 | 6a 3b 22 3a 22 20 3b 41 |.. M:.1 |j;":" ;A|
|000008e0| 28 30 2c 6a 29 3b 22 3d | 22 3b 3a f0 01 20 69 3d |(0,j);"=|";:.. i=|
|000008f0| 31 20 f6 04 20 4e 3a 62 | 24 3d f4 30 28 f4 2a 28 |1 .. N:b|$=.0(.*(|
|00000900| f4 14 28 41 28 69 2c 6a | 29 29 29 2c 5f 70 72 65 |..(A(i,j|))),_pre|
|00000910| 63 69 73 69 6f 6e 29 3a | 63 24 3d 77 24 28 69 29 |cision):|c$=w$(i)|
|00000920| 00 00 00 4c 00 21 ff 9c | 04 04 f0 0f 20 f4 14 28 |...L.!..|.... ..(|
|00000930| 41 28 69 2c 6a 29 29 3c | 5a 5a 20 20 f6 05 20 62 |A(i,j))<|ZZ  .. b|
|00000940| 24 3d 22 22 3a 63 24 3d | 22 22 20 3a f0 15 20 f0 |$="":c$=|"" :.. .|
|00000950| 0f 20 f4 14 28 f4 14 28 | 41 28 69 2c 6a 29 29 2d |. ..(..(|A(i,j))-|
|00000960| 31 29 3c 5a 5a 20 20 f6 | 05 20 62 24 3d 22 22 00 |1)<ZZ  .|. b$="".|
|00000970| 00 4a 00 22 ff b2 04 04 | f0 0f 20 41 28 69 2c 6a |.J."....|.. A(i,j|
|00000980| 29 3e 5a 5a 20 20 f6 05 | 20 f0 31 20 22 2b 22 3b |)>ZZ  ..| .1 "+";|
|00000990| 62 24 3b 63 24 3b 20 3a | f0 15 20 20 f0 0f 20 41 |b$;c$; :|..  .. A|
|000009a0| 28 69 2c 6a 29 3c 2d 5a | 5a 20 f6 05 20 f0 31 20 |(i,j)<-Z|Z .. .1 |
|000009b0| 22 2d 22 3b 62 24 3b 63 | 24 3b 00 00 00 18 00 23 |"-";b$;c|$;.....#|
|000009c0| ff b4 00 00 3a f0 07 20 | 69 3a f0 31 3a f0 07 20 |....:.. |i:.1:.. |
|000009d0| 6a 3a f0 12 00 00 00 52 | 00 24 ff e6 00 00 f0 13 |j:.....R|.$......|
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a00| 20 20 74 68 69 73 20 70 | 61 72 73 65 73 20 74 68 |  this p|arses th|
|00000a10| 65 20 20 69 6e 70 75 74 | 20 65 71 75 61 74 69 6f |e  input| equatio|
|00000a20| 6e 73 20 28 74 65 78 74 | 29 00 00 1a 00 25 ff ac |ns (text|)....%..|
|00000a30| 00 00 22 70 61 72 73 65 | 22 58 3d 39 39 39 39 3a |.."parse|"X=9999:|
|00000a40| 50 3d 5f 50 00 00 00 2c | 00 26 ff e4 00 00 22 69 |P=_P...,|.&...."i|
|00000a50| 49 49 22 f0 0b 20 41 24 | 3a 69 3d 30 3a f0 0f 20 |II".. A$|:i=0:.. |
|00000a60| 41 24 3d 22 24 22 20 20 | f6 05 20 4d 3d 4d 2d 31 |A$="$"  |.. M=M-1|
|00000a70| 3a f0 12 00 00 36 00 27 | ff d2 00 00 22 69 22 69 |:....6.'|...."i"i|
|00000a80| 3d 69 2b 31 3a 62 24 3d | f4 32 28 41 24 2c 69 2c |=i+1:b$=|.2(A$,i,|
|00000a90| 31 29 3a f0 0f 20 62 24 | 3d 22 22 20 f6 05 20 4d |1):.. b$|="" .. M|
|00000aa0| 3d 4d 2b 31 3a f0 0d 20 | 22 6a 22 00 00 30 00 28 |=M+1:.. |"j"..0.(|
|00000ab0| ff c8 00 00 f0 0f 20 62 | 24 3e 3d 22 41 22 20 f6 |...... b|$>="A" .|
|00000ac0| 07 20 62 24 3c 3d 22 7a | 22 20 f6 05 20 6c 24 3d |. b$<="z|" .. l$=|
|00000ad0| 6c 24 2b 62 24 3a f0 0d | 20 22 69 22 00 00 00 38 |l$+b$:..| "i"...8|
|00000ae0| 00 29 ff ce 00 00 f0 0f | 20 62 24 3d 22 3e 22 20 |.)......| b$=">" |
|00000af0| f6 08 20 62 24 3d 22 3c | 22 20 f6 08 20 62 24 20 |.. b$="<|" .. b$ |
|00000b00| 3d 20 22 3d 22 20 20 f6 | 05 20 54 24 3d 62 24 3a |= "="  .|. T$=b$:|
|00000b10| 62 24 3d 22 2b 22 00 00 | 00 66 00 2a ff c6 fe 00 |b$="+"..|.f.*....|
|00000b20| f0 0f 20 62 24 3d 22 2b | 22 20 f6 08 20 62 24 3d |.. b$="+|" .. b$=|
|00000b30| 22 2d 22 20 20 f6 05 20 | 77 24 28 4e 2b 31 29 3d |"-"  .. |w$(N+1)=|
|00000b40| 6c 24 3a 4b 3d 30 3a f0 | 37 20 77 24 28 4b 29 3c |l$:K=0:.|7 w$(K)<|
|00000b50| 3e 6c 24 3a 4b 3d 4b 2b | 31 3a f0 38 3a 76 24 28 |>l$:K=K+|1:.8:v$(|
|00000b60| 4b 29 3d 4e 24 3a 6c 24 | 3d 22 22 3a 4e 24 3d 22 |K)=N$:l$|="":N$="|
|00000b70| 22 3a f0 0f 20 4b 3e 4e | 20 f6 05 20 4e 3d 4b 00 |":.. K>N| .. N=K.|
|00000b80| 00 16 00 2b ff 98 00 00 | 4e 24 3d 4e 24 2b 62 24 |...+....|N$=N$+b$|
|00000b90| 3a f0 0d 20 22 69 22 00 | 00 64 00 2c ff e8 00 00 |:.. "i".|.d.,....|
|00000ba0| 22 6a 22 f0 0f 20 54 24 | 3d 22 3c 22 20 f6 08 20 |"j".. T$|="<" .. |
|00000bb0| 54 24 3d 22 3e 22 20 20 | f6 05 20 4e 3d 4e 2b 31 |T$=">"  |.. N=N+1|
|00000bc0| 3a 77 24 28 4e 29 3d 22 | 73 22 2b f4 31 28 f4 2a |:w$(N)="|s"+.1(.*|
|00000bd0| 28 4d 29 2c 31 29 3a f0 | 0f 20 54 24 3d 22 3c 22 |(M),1):.|. T$="<"|
|00000be0| 20 f6 05 20 76 24 28 4e | 29 3d 22 31 22 20 3a f0 | .. v$(N|)="1" :.|
|00000bf0| 15 20 76 24 28 4e 29 3d | 22 2d 31 22 00 00 00 56 |. v$(N)=|"-1"...V|
|00000c00| 00 2d ff 9a 00 02 76 24 | 28 30 29 3d 4e 24 3a f0 |.-....v$|(0)=N$:.|
|00000c10| 01 20 4b 3d 30 20 f6 04 | 20 4e 3a f0 0f 20 76 24 |. K=0 ..| N:.. v$|
|00000c20| 28 4b 29 3d 22 22 20 f6 | 08 20 76 24 28 4b 29 3d |(K)="" .|. v$(K)=|
|00000c30| 22 2b 22 20 f6 08 20 76 | 24 28 4b 29 3d 22 2d 22 |"+" .. v|$(K)="-"|
|00000c40| 20 20 f6 05 20 76 24 28 | 4b 29 3d 76 24 28 4b 29 |  .. v$(|K)=v$(K)|
|00000c50| 2b 22 31 22 00 00 00 46 | 00 2e ff a8 00 00 6c 3d |+"1"...F|......l=|
|00000c60| 6c 2b 31 3a 63 28 6c 29 | 3d f4 10 28 76 24 28 4b |l+1:c(l)|=..(v$(K|
|00000c70| 29 29 3a 76 24 28 4b 29 | 3d 22 30 22 3a f0 07 20 |)):v$(K)|="0":.. |
|00000c80| 4b 3a 6c 3d 6c 2b 31 3a | 63 28 6c 29 3d 58 3a 4e |K:l=l+1:|c(l)=X:N|
|00000c90| 24 3d 22 22 3a f0 0d 20 | 22 69 49 49 22 00 00 08 |$="":.. |"iII"...|
|00000ca0| 00 2f ff b8 00 00 00 00 | 00 0a ff ff ff f6 ff fc |./......|........|
|00000cb0| f0 12 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+